home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00100_MOTORRED.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  1.5 KB  |  66 lines
  1. on MOTORRED
  2.   global EXITROW, EY, EH, DT, MANBH, MANBY, BLUESCORE, REDSCORE, SOND
  3.   set the trails of sprite 46 to 1
  4.   set EY to 391
  5.   set EH to 571
  6.   if SOND = 0 then
  7.     puppetSound("MOTOR1")
  8.   end if
  9.   updateStage()
  10.   set DT to 25
  11.   COUNTTIME()
  12.   repeat with Z = 9 down to EXITROW
  13.     if SOND = 0 then
  14.       puppetSound("MOTOR2")
  15.     end if
  16.     updateStage()
  17.     repeat with ZZ = 1 to 7
  18.       set EY to EY - 5
  19.       set the locH of sprite 46 to EH
  20.       set the locV of sprite 46 to EY
  21.       updateStage()
  22.       set DT to 2
  23.       COUNTTIME()
  24.     end repeat
  25.   end repeat
  26.   REMOVESPRITE()
  27.   set the locH of sprite 9 to MANBH
  28.   set the locV of sprite 9 to MANBY
  29.   set the castNum of sprite 46 to 102
  30.   updateStage()
  31.   REMOVESPRITE()
  32.   set the trails of sprite 46 to 0
  33.   if SOND = 0 then
  34.     puppetSound("MOTOR3")
  35.   end if
  36.   updateStage()
  37.   set DT to 10
  38.   COUNTTIME()
  39.   repeat with Z = 9 down to EXITROW
  40.     if SOND = 0 then
  41.       puppetSound("MOTOR2")
  42.     end if
  43.     updateStage()
  44.     repeat with ZZ = 1 to 7
  45.       set EY to EY + 5
  46.       set the locH of sprite 46 to EH
  47.       set the locV of sprite 46 to EY
  48.       updateStage()
  49.       set DT to 2
  50.       COUNTTIME()
  51.     end repeat
  52.   end repeat
  53.   if SOND = 0 then
  54.     puppetSound("MOTOR3")
  55.   end if
  56.   updateStage()
  57.   set DT to 15
  58.   COUNTTIME()
  59.   set the castNum of sprite 46 to 97
  60.   set the trails of sprite 46 to 1
  61.   set BLUESCORE to BLUESCORE + 1
  62.   set the text of field "BLUESCORETXT" to string(BLUESCORE)
  63.   updateStage()
  64.   BLUEADD()
  65. end
  66.